00010	BEGIN "ZERO"
00020	
00030	INTEGER CHAN1,EOF;
00040	
00050	CHAN1←GETCHAN; CLOSE(CHAN1);
00060	OPEN(CHAN1,"DSK",'10,10,2,0,0,EOF);
00070	LOOKUP(CHAN1,"LRN.SAV",0); RENAME(CHAN1,"",0,0); CLOSE(CHAN1);
00080	OPEN(CHAN1,"DSK",'10,10,2,0,0,EOF);
00090	LOOKUP(CHAN1,"LRN.DAT",0); RENAME(CHAN1,"LRN.SAV",0,0); CLOSE(CHAN1);
00100	OPEN(CHAN1,"DSK",'10,10,2,0,0,EOF);
00110	LOOKUP(CHAN1,"RES.SAV",0); RENAME(CHAN1,"",0,0); CLOSE(CHAN1);
00120	OPEN(CHAN1,"DSK",'10,10,2,0,0,EOF);
00130	LOOKUP(CHAN1,"RES.DAT",0); RENAME(CHAN1,"RES.SAV",0,0); CLOSE(CHAN1);
00140	OPEN(CHAN1,"DSK",'10,0,10,0,0,0);
00150	ENTER(CHAN1,"RES.DAT",0); CLOSE(CHAN1);
00160	OPEN(CHAN1,"DSK",'10,0,10,0,0,0);
00170	ENTER(CHAN1,"LRN.DAT",0); CLOSE(CHAN1);
00180	
00190	END "ZERO";